home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD6437652000.psc / Chat Client & Chat Server / Chat Client / Functions.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-06-03  |  13.1 KB  |  330 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H00C00000&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Functions"
  6.    ClientHeight    =   2775
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   6000
  10.    Icon            =   "Functions.frx":0000
  11.    LinkTopic       =   "Form6"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2775
  15.    ScaleWidth      =   6000
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton Command1 
  19.       BackColor       =   &H0080C0FF&
  20.       Caption         =   "Off"
  21.       Height          =   255
  22.       Index           =   18
  23.       Left            =   840
  24.       Style           =   1  'Graphical
  25.       TabIndex        =   23
  26.       Top             =   2400
  27.       Width           =   975
  28.    End
  29.    Begin VB.CommandButton Command1 
  30.       BackColor       =   &H0080C0FF&
  31.       Caption         =   "Hide Clock"
  32.       Height          =   255
  33.       Index           =   17
  34.       Left            =   3120
  35.       Style           =   1  'Graphical
  36.       TabIndex        =   21
  37.       Top             =   2040
  38.       Width           =   1095
  39.    End
  40.    Begin VB.CommandButton Command1 
  41.       BackColor       =   &H0080C0FF&
  42.       Caption         =   "Hide Tray"
  43.       Height          =   255
  44.       Index           =   16
  45.       Left            =   1920
  46.       Style           =   1  'Graphical
  47.       TabIndex        =   20
  48.       Top             =   2040
  49.       Width           =   1095
  50.    End
  51.    Begin VB.CommandButton Command1 
  52.       BackColor       =   &H0080C0FF&
  53.       Caption         =   "Hide Tabs"
  54.       Height          =   255
  55.       Index           =   15
  56.       Left            =   840
  57.       Style           =   1  'Graphical
  58.       TabIndex        =   19
  59.       Top             =   2040
  60.       Width           =   975
  61.    End
  62.    Begin VB.CommandButton Command1 
  63.       BackColor       =   &H0080C0FF&
  64.       Caption         =   "Hide Icons"
  65.       Height          =   255
  66.       Index           =   14
  67.       Left            =   3120
  68.       Style           =   1  'Graphical
  69.       TabIndex        =   18
  70.       Top             =   1680
  71.       Width           =   1095
  72.    End
  73.    Begin VB.CommandButton Command1 
  74.       BackColor       =   &H0080C0FF&
  75.       Caption         =   "Hide Button"
  76.       Height          =   255
  77.       Index           =   13
  78.       Left            =   1920
  79.       Style           =   1  'Graphical
  80.       TabIndex        =   17
  81.       Top             =   1680
  82.       Width           =   1095
  83.    End
  84.    Begin VB.CommandButton Command1 
  85.       BackColor       =   &H0080C0FF&
  86.       Caption         =   "Hide"
  87.       Height          =   255
  88.       Index           =   12
  89.       Left            =   840
  90.       Style           =   1  'Graphical
  91.       TabIndex        =   16
  92.       Top             =   1680
  93.       Width           =   975
  94.    End
  95.    Begin VB.CommandButton Command1 
  96.       BackColor       =   &H0080C0FF&
  97.       Caption         =   "Hide"
  98.       Height          =   255
  99.       Index           =   11
  100.       Left            =   840
  101.       Style           =   1  'Graphical
  102.       TabIndex        =   15
  103.       Top             =   1320
  104.       Width           =   975
  105.    End
  106.    Begin VB.CommandButton Command1 
  107.       BackColor       =   &H0080C0FF&
  108.       Caption         =   "Swap"
  109.       Height          =   255
  110.       Index           =   10
  111.       Left            =   3120
  112.       Style           =   1  'Graphical
  113.       TabIndex        =   14
  114.       Top             =   960
  115.       Width           =   1095
  116.    End
  117.    Begin VB.CommandButton Command1 
  118.       BackColor       =   &H0080C0FF&
  119.       Caption         =   "Confine"
  120.       Height          =   255
  121.       Index           =   9
  122.       Left            =   1920
  123.       Style           =   1  'Graphical
  124.       TabIndex        =   13
  125.       Top             =   960
  126.       Width           =   1095
  127.    End
  128.    Begin VB.CommandButton Command1 
  129.       BackColor       =   &H0080C0FF&
  130.       Caption         =   "Freeze"
  131.       Height          =   255
  132.       Index           =   8
  133.       Left            =   840
  134.       Style           =   1  'Graphical
  135.       TabIndex        =   12
  136.       Top             =   960
  137.       Width           =   975
  138.    End
  139.    Begin VB.CommandButton Command1 
  140.       BackColor       =   &H0080C0FF&
  141.       Caption         =   "MessageBox"
  142.       Height          =   255
  143.       Index           =   7
  144.       Left            =   3840
  145.       Style           =   1  'Graphical
  146.       TabIndex        =   11
  147.       Top             =   480
  148.       Width           =   1095
  149.    End
  150.    Begin VB.CommandButton Command1 
  151.       BackColor       =   &H0080C0FF&
  152.       Caption         =   "Close CG"
  153.       Height          =   255
  154.       Index           =   5
  155.       Left            =   2880
  156.       Style           =   1  'Graphical
  157.       TabIndex        =   10
  158.       Top             =   480
  159.       Width           =   855
  160.    End
  161.    Begin VB.CommandButton Command1 
  162.       BackColor       =   &H0080C0FF&
  163.       Caption         =   "Clear Text"
  164.       Height          =   255
  165.       Index           =   4
  166.       Left            =   1800
  167.       Style           =   1  'Graphical
  168.       TabIndex        =   9
  169.       Top             =   480
  170.       Width           =   975
  171.    End
  172.    Begin VB.CommandButton Command1 
  173.       BackColor       =   &H0080C0FF&
  174.       Caption         =   "Start Url"
  175.       Height          =   255
  176.       Index           =   3
  177.       Left            =   840
  178.       Style           =   1  'Graphical
  179.       TabIndex        =   8
  180.       Top             =   480
  181.       Width           =   855
  182.    End
  183.    Begin VB.CommandButton Command1 
  184.       BackColor       =   &H0080C0FF&
  185.       Caption         =   "Delete Run + RunServices"
  186.       Height          =   255
  187.       Index           =   2
  188.       Left            =   3480
  189.       Style           =   1  'Graphical
  190.       TabIndex        =   7
  191.       Top             =   120
  192.       Width           =   2415
  193.    End
  194.    Begin VB.CommandButton Command1 
  195.       BackColor       =   &H0080C0FF&
  196.       Caption         =   "Add RunServices"
  197.       Height          =   255
  198.       Index           =   1
  199.       Left            =   1920
  200.       Style           =   1  'Graphical
  201.       TabIndex        =   6
  202.       Top             =   120
  203.       Width           =   1455
  204.    End
  205.    Begin VB.CommandButton Command1 
  206.       BackColor       =   &H0080C0FF&
  207.       Caption         =   "Add Run"
  208.       Height          =   255
  209.       Index           =   0
  210.       Left            =   840
  211.       Style           =   1  'Graphical
  212.       TabIndex        =   5
  213.       Top             =   120
  214.       Width           =   975
  215.    End
  216.    Begin VB.Label Label1 
  217.       Alignment       =   1  'Right Justify
  218.       AutoSize        =   -1  'True
  219.       BackColor       =   &H00C00000&
  220.       Caption         =   "Monitor:"
  221.       ForeColor       =   &H00FFFFFF&
  222.       Height          =   195
  223.       Index           =   4
  224.       Left            =   180
  225.       TabIndex        =   22
  226.       Top             =   2400
  227.       Width           =   570
  228.    End
  229.    Begin VB.Label Label1 
  230.       Alignment       =   1  'Right Justify
  231.       AutoSize        =   -1  'True
  232.       BackColor       =   &H00C00000&
  233.       Caption         =   "Taskbar:"
  234.       ForeColor       =   &H00FFFFFF&
  235.       Height          =   195
  236.       Index           =   5
  237.       Left            =   120
  238.       TabIndex        =   4
  239.       Top             =   1680
  240.       Width           =   630
  241.    End
  242.    Begin VB.Label Label1 
  243.       Alignment       =   1  'Right Justify
  244.       AutoSize        =   -1  'True
  245.       BackColor       =   &H00C00000&
  246.       Caption         =   "Desktop:"
  247.       ForeColor       =   &H00FFFFFF&
  248.       Height          =   195
  249.       Index           =   3
  250.       Left            =   90
  251.       TabIndex        =   3
  252.       Top             =   1320
  253.       Width           =   645
  254.    End
  255.    Begin VB.Label Label1 
  256.       Alignment       =   1  'Right Justify
  257.       AutoSize        =   -1  'True
  258.       BackColor       =   &H00C00000&
  259.       Caption         =   "Misc:"
  260.       ForeColor       =   &H00FFFFFF&
  261.       Height          =   195
  262.       Index           =   2
  263.       Left            =   360
  264.       TabIndex        =   2
  265.       Top             =   480
  266.       Width           =   375
  267.    End
  268.    Begin VB.Label Label1 
  269.       Alignment       =   1  'Right Justify
  270.       AutoSize        =   -1  'True
  271.       BackColor       =   &H00C00000&
  272.       Caption         =   "Registry"
  273.       ForeColor       =   &H00FFFFFF&
  274.       Height          =   195
  275.       Index           =   1
  276.       Left            =   165
  277.       TabIndex        =   1
  278.       Top             =   120
  279.       Width           =   570
  280.    End
  281.    Begin VB.Label Label1 
  282.       Alignment       =   1  'Right Justify
  283.       AutoSize        =   -1  'True
  284.       BackColor       =   &H00C00000&
  285.       Caption         =   "Mouse:"
  286.       ForeColor       =   &H00FFFFFF&
  287.       Height          =   195
  288.       Index           =   0
  289.       Left            =   240
  290.       TabIndex        =   0
  291.       Top             =   960
  292.       Width           =   525
  293.    End
  294. Attribute VB_Name = "Form2"
  295. Attribute VB_GlobalNameSpace = False
  296. Attribute VB_Creatable = False
  297. Attribute VB_PredeclaredId = True
  298. Attribute VB_Exposed = False
  299. Private Sub Command1_Click(Index As Integer)
  300. If Index = "0" Then AddRegName$ = InputBox("Enter String Value Name", ""): Send "RegNameRun" + AddRegName$: AddRegData$ = InputBox("Enter String Value Data", ""): Send "RegDataRun" + AddRegData$ 'Add Run
  301. If Index = "1" Then AddRegName$ = InputBox("Enter String Value Name", ""): Send "RegNameRunSerVices" + AddRegName$: AddRegData$ = InputBox("Enter String Value Data", ""): Send "RegDataRunSerVices" + AddRegData$ 'Add RunServices
  302. If Index = "2" Then Send "RegDel": msg = MsgBox("Registry Startup Contents Deleted!!!", vbInformation, "") 'Delete Run + RunServices
  303. If Index = "3" Then URL$ = InputBox("Enter URL to Start", ""): Send "URL" + URL$ 'Start URL
  304. If Index = "4" Then Send "CText" 'Clear Text
  305. If Index = "5" Then Send "CloseAPPic": Send "CloseAPPcgmenu": Send "CloseAPPcg16eh": Send "CloseAPPcg32eh"  'Close Norton CrashGuard"
  306. If Index = "7" Then Form6.Visible = True 'MessageBox
  307. If Index = "8" And Command1(8).Caption = "Freeze" Then Send "JMouse": Command1(8).Caption = "Free": Exit Sub 'Freeze Mouse
  308. If Index = "8" And Command1(8).Caption = "Free" Then Send "FMouse": Command1(8).Caption = "Freeze": Exit Sub 'Free Mouse
  309. If Index = "9" And Command1(9).Caption = "Confine" Then Send "CMouse": Command1(9).Caption = "Free": Exit Sub 'Confine Mouse"
  310. If Index = "9" And Command1(9).Caption = "Free" Then Send "FMouse": Command1(9).Caption = "Confine": Exit Sub 'Free Mouse
  311. If Index = "10" And Command1(10).Caption = "Swap" Then Send "SMouse": Command1(10).Caption = "Restore": Exit Sub 'Swap Mouse Buttons
  312. If Index = "10" And Command1(10).Caption = "Restore" Then Send "RMouse": Command1(10).Caption = "Swap": Exit Sub 'Restore Mouse Buttons
  313. If Index = "11" And Command1(11).Caption = "Hide" Then Send "HideD": Command1(11).Caption = "Show": Exit Sub 'Hide Desktop
  314. If Index = "11" And Command1(11).Caption = "Show" Then Send "ShowD": Command1(11).Caption = "Hide": Exit Sub 'Show Desktop
  315. If Index = "12" And Command1(12).Caption = "Hide" Then Send "HideT": Command1(12).Caption = "Show": Exit Sub 'Hide Taskbar
  316. If Index = "12" And Command1(12).Caption = "Show" Then Send "ShowT": Command1(12).Caption = "Hide": Exit Sub 'Show Taskbar
  317. If Index = "13" And Command1(13).Caption = "Hide Button" Then Send "HideTB": Command1(13).Caption = "Show Button": Exit Sub 'Hide Taskbar Button
  318. If Index = "13" And Command1(13).Caption = "Show Button" Then Send "ShowTB": Command1(13).Caption = "Hide Button": Exit Sub 'Show Taskbar Button
  319. If Index = "14" And Command1(14).Caption = "Hide Icons" Then Send "HideTI": Command1(14).Caption = "Show Icons": Exit Sub 'Hide Taskbar Icons
  320. If Index = "14" And Command1(14).Caption = "Show Icons" Then Send "ShowTI": Command1(14).Caption = "Hide Icons": Exit Sub 'Show Taskbar Icons
  321. If Index = "15" And Command1(15).Caption = "Hide Tabs" Then Send "HideTTabs": Command1(15).Caption = "Show Tabs": Exit Sub 'Hide Taskbar Tabs
  322. If Index = "15" And Command1(15).Caption = "Show Tabs" Then Send "ShowTTabs": Command1(15).Caption = "Hide Tabs": Exit Sub 'Show Taskbar Tabs
  323. If Index = "16" And Command1(16).Caption = "Hide Tray" Then Send "HideTTray": Command1(16).Caption = "Show Tray": Exit Sub 'Hide Taskbar Tray
  324. If Index = "16" And Command1(16).Caption = "Show Tray" Then Send "ShowTTray": Command1(16).Caption = "Hide Tray": Exit Sub 'Show Taskbar Tray
  325. If Index = "17" And Command1(17).Caption = "Hide Clock" Then Send "HideTClock": Command1(17).Caption = "Show Clock": Exit Sub 'Hide Taskbar Clock
  326. If Index = "17" And Command1(17).Caption = "Show Clock" Then Send "ShowTClock": Command1(17).Caption = "Hide Clock": Exit Sub 'Show Taskbar Clock
  327. If Index = "18" And Command1(18).Caption = "Off" Then Send "MonitorOff": Command1(18).Caption = "On": Exit Sub 'Off Monitor
  328. If Index = "18" And Command1(18).Caption = "On" Then Send "MonitorOn": Command1(18).Caption = "Off": Exit Sub 'On Monitor
  329. End Sub
  330.